home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 6 A / CHIP_HITWARE6_A.iso / internet / LorenzHTMLTool / _SETUP.1 / Personal Counter.scp < prev    next >
Text File  |  1998-04-12  |  2KB  |  53 lines
  1. <HTMLtool>Personal counter that counts the visits of a visitor using cookies</HTMLtool>
  2. <SCRIPT LANGUAGE="Javascript"><!--
  3. function getCookieVal (offset) {
  4.   var endstr = document.cookie.indexOf (";", offset);
  5.   if (endstr == -1)
  6.     endstr = document.cookie.length;
  7.   return unescape(document.cookie.substring(offset, endstr));}
  8.  
  9. function GetCookie (name) {
  10.   var arg = name + "=";
  11.   var alen = arg.length;
  12.   var clen = document.cookie.length;
  13.   var i = 0;
  14.   while (i < clen) {
  15.     var j = i + alen;
  16.     if (document.cookie.substring(i, j) == arg)
  17.       return getCookieVal (j);
  18.     i = document.cookie.indexOf(" ", i) + 1;
  19.     if (i == 0)
  20.        break;  }
  21.   return null;}
  22.  
  23. function SetCookie (name, value) {
  24.   var argv = SetCookie.arguments;
  25.   var argc = SetCookie.arguments.length;
  26.   var expires = (argc > 2) ? argv[2] : null;
  27.   var path = (argc > 3) ? argv[3] : null;
  28.   var domain = (argc > 4) ? argv[4] : null;
  29.   var secure = (argc > 5) ? argv[5] : false;
  30.   document.cookie = name + "=" + escape (value) +
  31.     ((expires == null) ? "" : ("; expires=" + expires.toGMTString())) +
  32.     ((path == null) ? "" : ("; path=" + path)) +
  33.     ((domain == null) ? "" : ("; domain=" + domain)) +
  34.     ((secure == true) ? "; secure" : "");}function DeleteCookie(name) {
  35.   var exp = new Date();
  36.   FixCookieDate (exp); // Correct for Mac bug
  37.   exp.setTime (exp.getTime() - 1);  // This cookie is history
  38.   var cval = GetCookie (name);
  39.   if (cval != null)
  40.     document.cookie = name + "=" + cval + "; expires=" + exp.toGMTString();}
  41. var expdate = new Date();
  42. var num_visits;
  43. expdate.setTime(expdate.getTime() + (5*24*60*60*1000));
  44. if (!(num_visits = GetCookie("num_visits")))
  45.   num_visits = 0;num_visits++;
  46. SetCookie("num_visits",num_visits,expdate);
  47. //--></SCRIPT>
  48.  
  49. <SCRIPT LANGUAGE="Javascript"><!--
  50. // please keep these lines on when you copy the source
  51. // made by: Brandon - http://www.geocities.com/TimesSquare/Arcade/7785
  52. document.write("You have been to this page "+num_visits+" times.");
  53. //--></SCRIPT>